home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / coeur.sha < prev    next >
Text File  |  1994-03-01  |  410b  |  9 lines
  1. 10 CLS:CLEAR :INPUT "TA DATE ",D$
  2. 20 J=VAL(MID$(D$,1,2)):M=VAL(MID$(D$,3,2)):A=VAL(MID$(D$,5,2))
  3. 30 LOCATE 0,1:INPUT "SA DATE ",E$
  4. 40 K=VAL(MID$(E$,1,2)):N=VAL(MID$(E$,3,2)):B=VAL(MID$(E$,5,2))
  5. 50 S=J+69:T=K+69:U=M+88:V=N+88
  6. 60 X=S+T:Y=U+V:Z=A+B
  7. 70 X=X/3:Y=Y/4:Z=Z/3
  8. 80 CLS:SETF2:PRINT "AMOUR "X"%  SEXE "Y"%";:LOCATE0,1:PRINT "PH & IN "Z"%":W=((X+Y+Z)/3):CLS:LOCATE0,0:PRINT "TOTAL:"W"%":SETN:GOTO 50
  9.